10 PRINTCHR$(147)"VIC PRINT-SOUND"
20 GOSUB500
30 PRINT"SOUND IS NOW DEVICE 2"
40 CLOSE1:OPEN1,2:PRINT#1,"AEHMZLMZZZZZZ"
50 IFPEEK(983)>0THEN50
60 PRINT"A TUNE BY J.S. BACH"
70 PRINT#1,"FHJMKKOMMRQRMJFHJKMOMKJHJFEFH"
80 PRINT#1,"AEHKJHJFHJMKKOMMRQRMJFHJCMKJHFAFEF"
90 END
500 DATA76,194,3,76,132,3,141,219,3,152,72,165,154,201,2
510 DATA208,47,173,219,3,201,65,48,33,201,91,16,29,56,233
520 DATA65,168,185,220,3,172,215,3,192,255,240,249,172,217,3
530 DATA145,249,200,152,41,255,141,217,3,238,215,3,104,168,173
540 DATA219,3,24,96,104,168,173,219,3,76,122,242,72,152,72
550 DATA173,218,3,240,15,206,218,3,240,6,104,168,104,76,191
560 DATA234,169,0,240,27,173,215,3,240,241,172,216,3,177,249
570 DATA72,200,152,41,255,141,216,3,206,215,3,169,10,141,218
580 DATA3,104,141,10,144,141,11,144,141,12,144,24,144,207,120
590 DATA169,3,141,21,3,141,39,3,169,63,141,20,3,169,66
600 DATA141,38,3,88,96,0,0,0,0,0,183,187,191,195,199
610 DATA201,203,207,209,212,215,217,219,221,223,225,227,228,229
620 DATA231,232,233,235,236,237,0
630 FORI=828TO1013:READJ:POKEI,J:NEXTI
640 POKE36878,15:SYS828:RETURN